(text_read_only): Use xsignal0, xsignal1.

diff --git a/src/textprop.c b/src/textprop.c
index 0318d12913ff6a055c9fe239f2cf15283dc69396..b89d73a7ef927403f682cfde08c56b826af197b0 100644 (file)
--- a/src/textprop.c
+++ b/src/textprop.c
@@ -86,7 +86,10 @@ static void
 text_read_only (propval)
      Lisp_Object propval;
 {
-  Fsignal (Qtext_read_only, STRINGP (propval) ? Fcons (propval, Qnil) : Qnil);
+  if (STRINGP (propval))
+    xsignal1 (Qtext_read_only, propval);
+
+  xsignal0 (Qtext_read_only);
 }